﻿Imports QLBH.GlobalClass
Public Class frmNVChiTiet



    Private Sub btnNVLuu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNVLuu.Click

        Dim tenF As String = Me.Name + ".xml"
        GlobalFunction.GhiTenControlToXML(Me, tenF)
        MessageBox.Show("Succsesfull", "Thông Báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub

    Private Sub btnNVDoiMK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNVDoiMK.Click
        'GlobalVariable.frmNVDMK.ShowDialog()
    End Sub
End Class